home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / pcmagwin.zip / SETMACR2.BAS < prev    next >
BASIC Source File  |  1992-03-10  |  736b  |  22 lines
  1.  
  2. 10 INPUT "TYPE IN COMMAND"; D$
  3. 20 IF D$ = "" THEN 10
  4. 30 PRINT "TYPE IN SHORT-CUT KEY"
  5. 40 A$ = INKEY$: IF A$ = "" THEN 40
  6. 50 B$ = MID$(A$, 1, 1)
  7. 60 C$ = MID$(A$, 2, 1)
  8. 70 B$ = STR$(ASC(B$))
  9. 80 C$ = STR$(ASC(C$))
  10. 90 B$ = MID$(B$, 2)
  11. 100 C$ = MID$(C$, 2)
  12. 110 OPEN "O", #1, "set_mcro.bat"
  13. 120 IF C$ = "" THEN PRINT #1, "PROMPT $e[" + B$ + ";" + CHR$(34) + D$ + CHR$(34) + ";13p"
  14. 130 IF C$ <> "" THEN PRINT #1, "PROMPT $e[" + B$ + ";" + C$ + ";" + CHR$(34) + D$ + CHR$(34) + ";13p"
  15. 140 CLOSE #1
  16. 150 OPEN "un_mcro.bat" FOR APPEND AS #1
  17. 160 IF C$ = "" THEN PRINT #1, "PROMPT $e[" + B$ + ";" + B$ + ";13p"
  18. 170 IF C$ <> "" THEN PRINT #1, "PROMPT $e[" + B$ + ";" + C$ + ";" + B$ + ";" + C$ + ";13p"
  19. 180 CLOSE #1
  20. 190 SYSTEM
  21.  
  22.